#!
@a = (1...6);
@b = (8...15);
push @a,7;
push @a,@b;
print join(" ",@a),"\n";

$poped = pop @a;
print "The element poped is $poped\n";

$shifted = shift @a;
print "The element shifted is $shifted\n";

unshift @a,0;

print "The array now is: ",join(" ",@a),"\n";
